home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / smalltlk.zip / PRELUDE / BLOCK.P < prev    next >
Text File  |  1990-09-13  |  2KB  |  64 lines
  1. temp <- <primitive 110 14 >
  2. <primitive 112 temp 1        " value:value:value:value:value: " \
  3.     #( #[ 85 250 1 140 242 245] \
  4.     #(  ) ) >
  5.  
  6. <primitive 112 temp 2        " value:value:value:value: " \
  7.     #( #[ 84 250 1 140 242 245] \
  8.     #(  ) ) >
  9.  
  10. <primitive 112 temp 3        " value:value:value: " \
  11.     #( #[ 83 250 1 140 242 245] \
  12.     #(  ) ) >
  13.  
  14. <primitive 112 temp 4        " value:value: " \
  15.     #( #[ 82 250 1 140 242 245] \
  16.     #(  ) ) >
  17.  
  18. <primitive 112 temp 5        " value: " \
  19.     #( #[ 81 250 1 140 242 245] \
  20.     #(  ) ) >
  21.  
  22. <primitive 112 temp 6        " value " \
  23.     #( #[ 80 250 1 140 242 245] \
  24.     #(  ) ) >
  25.  
  26. <primitive 112 temp 7        " whileFalse: " \
  27.     #( #[ 32 165 246 5 33 165 242 249 9 243 245] \
  28.     #(  ) ) >
  29.  
  30. <primitive 112 temp 8        " whileFalse " \
  31.     #( #[ 32 165 246 4 93 242 249 8 243 245] \
  32.     #(  ) ) >
  33.  
  34. <primitive 112 temp 9        " whileTrue: " \
  35.     #( #[ 32 165 247 5 33 165 242 249 9 243 245] \
  36.     #(  ) ) >
  37.  
  38. <primitive 112 temp 10        " whileTrue " \
  39.     #( #[ 32 165 247 4 93 242 249 8 243 245] \
  40.     #(  ) ) >
  41.  
  42. <primitive 112 temp 11        " forkWith: " \
  43.     #( #[ 32 33 11 35 10 40 242 93 243 245] \
  44.     #(  ) ) >
  45.  
  46. <primitive 112 temp 12        " fork " \
  47.     #( #[ 32 10 33 10 40 242 93 243 245] \
  48.     #(  ) ) >
  49.  
  50. <primitive 112 temp 13        " newProcessWith: " \
  51.     #( #[ 32 33 250 2 141 243 245] \
  52.     #(  ) ) >
  53.  
  54. <primitive 112 temp 14        " newProcess " \
  55.     #( #[ 32 250 1 141 243 245] \
  56.     #(  ) ) >
  57.  
  58. <primitive 98 #Block \
  59.     <primitive 97 #Block #Object #\smalltlk\prelude\block.st \
  60.     #(  ) \
  61.     #( #value:value:value:value:value: #value:value:value:value: #value:value:value: #value:value: #value: #value #whileFalse: #whileFalse #whileTrue: #whileTrue #forkWith: #fork #newProcessWith: #newProcess  ) \
  62.     temp 6 3 > >
  63.  
  64.